Excel VBA: Application.Tranpose on an array gives Run-time error 438